/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / schools / _polymos / grid1 / bit2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0b 20 f4 3e 42 | 49 54 32 0d 00 14 0c dd |.... .>B|IT2.....|
|00000010| f2 43 48 41 4e 47 45 0d | 00 1e 55 20 de 20 4e 58 |.CHANGE.|..U . NX|
|00000020| 25 28 31 30 30 2c 31 32 | 29 2c 4e 59 25 28 31 30 |%(100,12|),NY%(10|
|00000030| 30 2c 31 32 29 2c 4e 25 | 28 31 30 30 2c 31 32 29 |0,12),N%|(100,12)|
|00000040| 2c 58 25 28 31 30 30 2c | 31 32 29 2c 59 25 28 31 |,X%(100,|12),Y%(1|
|00000050| 30 30 2c 31 32 29 2c 46 | 25 28 31 30 30 2c 31 32 |00,12),F|%(100,12|
|00000060| 29 2c 55 25 28 31 30 30 | 2c 31 32 29 0d 00 28 23 |),U%(100|,12)..(#|
|00000070| 20 de 5a 24 28 31 30 30 | 29 2c 54 25 28 31 30 30 | .Z$(100|),T%(100|
|00000080| 29 2c 41 25 28 35 29 2c | 54 24 28 31 30 30 29 0d |),A%(5),|T$(100).|
|00000090| 00 32 1f 20 20 53 6f 6c | 75 74 69 6f 6e 4e 6f 3d |.2.  Sol|utionNo=|
|000000a0| 30 3a f4 20 2a 44 49 52 | 20 47 52 49 44 31 0d 00 |0:. *DIR| GRID1..|
|000000b0| 3c 79 20 20 4a 25 3d ad | 22 47 52 49 44 53 22 3a |<y  J%=.|"GRIDS":|
|000000c0| f5 53 6f 6c 75 74 69 6f | 6e 4e 6f 3d 53 6f 6c 75 |.Solutio|nNo=Solu|
|000000d0| 74 69 6f 6e 4e 6f 2b 31 | 3a e8 23 4a 25 2c 5a 24 |tionNo+1|:.#J%,Z$|
|000000e0| 28 53 6f 6c 75 74 69 6f | 6e 4e 6f 29 2c 54 25 28 |(Solutio|nNo),T%(|
|000000f0| 53 6f 6c 75 74 69 6f 6e | 4e 6f 29 3a fd 5a 24 28 |Solution|No):.Z$(|
|00000100| 53 6f 6c 75 74 69 6f 6e | 4e 6f 29 3d 22 45 4e 44 |Solution|No)="END|
|00000110| 22 3a 54 61 72 67 65 74 | 3d 53 6f 6c 75 74 69 6f |":Target|=Solutio|
|00000120| 6e 4e 6f 3a d9 23 30 0d | 00 46 41 20 20 e3 20 53 |nNo:.#0.|.FA  . S|
|00000130| 6f 6c 75 74 69 6f 6e 4e | 6f 3d 31 20 b8 20 54 61 |olutionN|o=1 . Ta|
|00000140| 72 67 65 74 3a 20 20 5a | 24 3d 5a 24 28 53 6f 6c |rget:  Z|$=Z$(Sol|
|00000150| 75 74 69 6f 6e 4e 6f 29 | 3a f4 20 50 52 49 4e 54 |utionNo)|:. PRINT|
|00000160| 5a 24 3a 41 3d 47 45 54 | 0d 00 50 15 20 e3 50 69 |Z$:A=GET|..P. .Pi|
|00000170| 65 63 65 4e 6f 25 3d 31 | b8 31 32 3a 3a 0d 00 5a |eceNo%=1|.12::..Z|
|00000180| 15 20 5a 5a 5a 25 3d a7 | 5a 24 2c 22 3a 22 2c 32 |. ZZZ%=.|Z$,":",2|
|00000190| 29 3a 0d 00 64 14 4c 25 | 3d 5a 5a 5a 25 2d 31 3a |):..d.L%|=ZZZ%-1:|
|000001a0| 6b 25 3d 4c 25 3a 0d 00 | 6e 2f 50 24 3d c1 5a 24 |k%=L%:..|n/P$=.Z$|
|000001b0| 2c 31 2c 4c 25 29 3a 41 | 24 3d 50 24 3a 51 25 3d |,1,L%):A|$=P$:Q%=|
|000001c0| 31 3a 57 57 57 25 3d a7 | 41 24 2c 22 2c 22 2c 51 |1:WWW%=.|A$,",",Q|
|000001d0| 25 2b 31 29 3a 0d 00 78 | 04 0d 00 82 3a e3 20 50 |%+1):..x|....:. P|
|000001e0| 6c 61 63 65 49 6e 53 74 | 72 25 3d 31 b8 35 3a 3a |laceInSt|r%=1.5::|
|000001f0| 4c 25 3d 57 57 57 25 2d | 51 25 3a 65 25 3d 51 25 |L%=WWW%-|Q%:e%=Q%|
|00000200| 3a 51 24 3d c1 41 24 2c | 65 25 2b 31 2c 4c 25 2d |:Q$=.A$,|e%+1,L%-|
|00000210| 31 29 3a 0d 00 8c 3a 20 | 20 20 20 20 20 20 41 25 |1):...: |      A%|
|00000220| 28 50 6c 61 63 65 49 6e | 53 74 72 25 29 3d bb 51 |(PlaceIn|Str%)=.Q|
|00000230| 24 3a 51 25 3d 57 57 57 | 25 3a 57 57 57 25 3d a7 |$:Q%=WWW|%:WWW%=.|
|00000240| 41 24 2c 22 2c 22 2c 51 | 25 2b 31 29 3a 0d 00 96 |A$,",",Q|%+1):...|
|00000250| 29 20 20 20 20 20 20 20 | 4e 25 28 53 6f 6c 75 74 |)       |N%(Solut|
|00000260| 69 6f 6e 4e 6f 2c 50 69 | 65 63 65 4e 6f 25 29 3d |ionNo,Pi|eceNo%)=|
|00000270| 41 25 28 31 29 3a 0d 00 | 97 2f 20 20 20 20 20 20 |A%(1):..|./      |
|00000280| 20 f4 42 3d 49 4e 54 28 | 41 2f 31 30 30 29 3a 43 | .B=INT(|A/100):C|
|00000290| 3d 31 30 30 2a 42 3a 51 | 3d 41 2d 43 3a 50 52 49 |=100*B:Q|=A-C:PRI|
|000002a0| 4e 54 42 2b 51 0d 00 98 | 29 20 20 20 20 20 20 20 |NTB+Q...|)       |
|000002b0| 42 3d a8 28 41 25 28 32 | 29 2f 57 25 29 3a 43 3d |B=.(A%(2|)/W%):C=|
|000002c0| 57 25 2a 42 3a 51 3d 41 | 25 28 32 29 2d 43 0d 00 |W%*B:Q=A|%(2)-C..|
|000002d0| a0 27 20 20 20 20 20 20 | 20 4e 58 25 28 53 6f 6c |.'      | NX%(Sol|
|000002e0| 75 74 69 6f 6e 4e 6f 2c | 50 69 65 63 65 4e 6f 25 |utionNo,|PieceNo%|
|000002f0| 29 3d 42 2b 51 0d 00 a1 | 29 20 20 20 20 20 20 20 |)=B+Q...|)       |
|00000300| 42 3d a8 28 41 25 28 33 | 29 2f 57 25 29 3a 43 3d |B=.(A%(3|)/W%):C=|
|00000310| 57 25 2a 42 3a 51 3d 41 | 25 28 33 29 2d 43 0d 00 |W%*B:Q=A|%(3)-C..|
|00000320| aa 27 20 20 20 20 20 20 | 20 4e 59 25 28 53 6f 6c |.'      | NY%(Sol|
|00000330| 75 74 69 6f 6e 4e 6f 2c | 50 69 65 63 65 4e 6f 25 |utionNo,|PieceNo%|
|00000340| 29 3d 42 2b 51 0d 00 b4 | 47 20 20 20 20 20 20 20 |)=B+Q...|G       |
|00000350| 46 25 28 53 6f 6c 75 74 | 69 6f 6e 4e 6f 2c 50 69 |F%(Solut|ionNo,Pi|
|00000360| 65 63 65 4e 6f 25 29 3d | 41 25 28 34 29 3a 55 25 |eceNo%)=|A%(4):U%|
|00000370| 28 53 6f 6c 75 74 69 6f | 6e 4e 6f 2c 50 69 65 63 |(Solutio|nNo,Piec|
|00000380| 65 4e 6f 25 29 3d 41 25 | 28 35 29 3a 0d 00 be 14 |eNo%)=A%|(5):....|
|00000390| 20 20 ed 20 50 6c 61 63 | 65 49 6e 53 74 72 25 3a |  . Plac|eInStr%:|
|000003a0| 0d 00 c8 16 20 20 5a 24 | 3d c2 5a 24 2c 28 a9 5a |....  Z$|=.Z$,(.Z|
|000003b0| 24 2d 6b 25 29 29 0d 00 | d2 0f 20 20 ed 50 69 65 |$-k%))..|..  .Pie|
|000003c0| 63 65 4e 6f 25 0d 00 dc | 1f 20 50 25 3d 5a 5a 5a |ceNo%...|. P%=ZZZ|
|000003d0| 25 3a 5a 5a 5a 25 3d a7 | 5a 24 2c 22 3a 22 2c 50 |%:ZZZ%=.|Z$,":",P|
|000003e0| 25 2b 31 29 0d 00 e6 04 | 0d 00 f0 16 3a ed 53 6f |%+1)....|....:.So|
|000003f0| 6c 75 74 69 6f 6e 4e 6f | 3a 54 24 3d 22 22 0d 00 |lutionNo|:T$=""..|
|00000400| fa 31 20 e3 20 53 6f 6c | 75 74 69 6f 6e 4e 6f 3d |.1 . Sol|utionNo=|
|00000410| 31 20 b8 20 54 61 72 67 | 65 74 2d 31 3a 3a e3 20 |1 . Targ|et-1::. |
|00000420| 50 69 65 63 65 4e 6f 25 | 3d 31 20 b8 20 31 32 0d |PieceNo%|=1 . 12.|
|00000430| 01 04 80 20 f1 4e 25 28 | 53 6f 6c 75 74 69 6f 6e |... .N%(|Solution|
|00000440| 4e 6f 2c 50 69 65 63 65 | 4e 6f 25 29 2c 4e 58 25 |No,Piece|No%),NX%|
|00000450| 28 53 6f 6c 75 74 69 6f | 6e 4e 6f 2c 50 69 65 63 |(Solutio|nNo,Piec|
|00000460| 65 4e 6f 25 29 2c 4e 59 | 25 28 53 6f 6c 75 74 69 |eNo%),NY|%(Soluti|
|00000470| 6f 6e 4e 6f 2c 50 69 65 | 63 65 4e 6f 25 29 2c 46 |onNo,Pie|ceNo%),F|
|00000480| 25 28 53 6f 6c 75 74 69 | 6f 6e 4e 6f 2c 50 69 65 |%(Soluti|onNo,Pie|
|00000490| 63 65 4e 6f 25 29 2c 55 | 25 28 53 6f 6c 75 74 69 |ceNo%),U|%(Soluti|
|000004a0| 6f 6e 4e 6f 2c 50 69 65 | 63 65 4e 6f 25 29 3a 0d |onNo,Pie|ceNo%):.|
|000004b0| 01 0e bf 20 54 24 28 53 | 6f 6c 75 74 69 6f 6e 4e |... T$(S|olutionN|
|000004c0| 6f 29 3d 54 24 28 53 6f | 6c 75 74 69 6f 6e 4e 6f |o)=T$(So|lutionNo|
|000004d0| 29 2b 22 3a 22 2b c3 28 | 4e 25 28 53 6f 6c 75 74 |)+":"+.(|N%(Solut|
|000004e0| 69 6f 6e 4e 6f 2c 50 69 | 65 63 65 4e 6f 25 29 29 |ionNo,Pi|eceNo%))|
|000004f0| 2b 22 2c 22 2b c3 28 4e | 58 25 28 53 6f 6c 75 74 |+","+.(N|X%(Solut|
|00000500| 69 6f 6e 4e 6f 2c 50 69 | 65 63 65 4e 6f 25 29 29 |ionNo,Pi|eceNo%))|
|00000510| 2b 22 2c 22 2b c3 28 4e | 59 25 28 53 6f 6c 75 74 |+","+.(N|Y%(Solut|
|00000520| 69 6f 6e 4e 6f 2c 50 69 | 65 63 65 4e 6f 25 29 29 |ionNo,Pi|eceNo%))|
|00000530| 2b 22 2c 22 2b c3 28 46 | 25 28 53 6f 6c 75 74 69 |+","+.(F|%(Soluti|
|00000540| 6f 6e 4e 6f 2c 50 69 65 | 63 65 4e 6f 25 29 29 2b |onNo,Pie|ceNo%))+|
|00000550| 22 2c 22 2b c3 28 55 25 | 28 53 6f 6c 75 74 69 6f |","+.(U%|(Solutio|
|00000560| 6e 4e 6f 2c 50 69 65 63 | 65 4e 6f 25 29 29 0d 01 |nNo,Piec|eNo%))..|
|00000570| 18 0c 20 ed 3a 3a f1 3a | 3a ed 0d 01 22 06 20 e0 |.. .::.:|:...". .|
|00000580| 0d 01 2c 0b 20 dd f2 53 | 41 56 45 0d 01 36 4a 20 |..,. ..S|AVE..6J |
|00000590| 4a 25 3d ae 22 53 4f 4c | 55 54 49 4f 4e 53 22 3a |J%=."SOL|UTIONS":|
|000005a0| f1 23 4a 25 2c 53 6f 6c | 75 74 69 6f 6e 4e 6f 3a |.#J%,Sol|utionNo:|
|000005b0| e3 20 53 53 53 53 3d 31 | 20 b8 20 53 6f 6c 75 74 |. SSSS=1| . Solut|
|000005c0| 69 6f 6e 4e 6f 3a f1 23 | 4a 25 2c 54 24 28 53 53 |ionNo:.#|J%,T$(SS|
|000005d0| 53 53 29 3a ed 0d 01 40 | 14 20 20 f1 23 4a 25 2c |SS):...@|.  .#J%,|
|000005e0| 22 45 4e 44 22 3a d9 23 | 30 0d 01 4a 07 20 20 e1 |"END":.#|0..J.  .|
|000005f0| 0d 01 54 0c 20 20 dd f2 | 4c 4f 41 44 0d 01 5e 4f |..T.  ..|LOAD..^O|
|00000600| 20 20 4a 25 3d ad 22 53 | 4f 4c 55 54 49 4f 4e 53 |  J%=."S|OLUTIONS|
|00000610| 22 3a e8 23 4a 25 2c 53 | 6f 6c 75 74 69 6f 6e 4e |":.#J%,S|olutionN|
|00000620| 6f 3a e3 20 53 53 53 53 | 3d 31 20 b8 20 53 6f 6c |o:. SSSS|=1 . Sol|
|00000630| 75 74 69 6f 6e 4e 6f 3a | e8 23 4a 25 2c 54 24 28 |utionNo:|.#J%,T$(|
|00000640| 53 53 53 53 29 3a ed 3a | d9 23 30 0d 01 68 06 20 |SSSS):.:|.#0..h. |
|00000650| e1 0d 01 72 26 20 e3 20 | 53 53 53 53 3d 31 20 b8 |...r& . |SSSS=1 .|
|00000660| 20 53 6f 6c 75 74 69 6f | 6e 4e 6f 3a f1 54 24 28 | Solutio|nNo:.T$(|
|00000670| 53 53 53 53 29 3a ed 0d | ff                      |SSSS):..|.       |
+--------+-------------------------+-------------------------+--------+--------+